; 
; This is a script that, when loaded before a 'monster' object will cause
; the data to marshall itself into a 'key=value;key=value;foo=bar;' formatted
; string which can easily be chooped up for use by any code in any language.
; The chief advantage here is that data types can be verified at run time, by
; run time criteria specified here if need be.
;
(define flatten
 (lambda (key value)
  (string-append key "=" value ";")))
(define flatten-number
 (lambda (key value)
  (flatten key (number->string value))))
